home *** CD-ROM | disk | FTP | other *** search
/ FCE Gold Plus / GOLD.iso / pc / fscommand / Xtras / FileXtra4_test.dir / 00026_Script_FolderSelect behavior < prev    next >
Text File  |  2002-12-20  |  575b  |  25 lines
  1. on mouseUp me
  2.   fxObj = xtra("FileXtra4").new()
  3.   if not(objectP(fxObj)) then
  4.     WriteInfo("*** Could not instantiate FileXtra4.  Is it in the Xtras folder? ***" & RETURN)
  5.     return
  6.   end if
  7.   
  8.   volumeList = fxObj.fx_VolumesToList()
  9.   volumeToUse = volumeList.getAt(1)
  10.   
  11.   if the platform contains "Mac" then
  12.     folderPath = fxObj.fx_FolderSelectDialog(volumeToUse)
  13.   else
  14.     
  15.   end if
  16.   
  17.   if folderPath <> "" then
  18.     Alert "Folder path returned is: " & folderPath
  19.   else
  20.     alert "FolderSelect dialog cancelled."
  21.   end if
  22.   
  23.   fxObj = 0
  24. end
  25.